home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / rotate.bas < prev    next >
Encoding:
BASIC Source File  |  1989-03-21  |  235 b   |  17 lines
  1. ' a silly example program, showing the extended PTAB statement
  2.  
  3. pi=4*ATN(1)
  4. i=-2*pi
  5. c=1
  6. COLOR c
  7. DO
  8.     i=i+0.15
  9.     IF i>pi*2 THEN i=i-pi*2
  10.         INCR c
  11.         IF c>3 THEN c=1
  12.         COLOR c
  13.     PRINT PTAB(300+200*COS(i),90+80*SIN(i));"HiSoft BASIC";
  14. LOOP
  15.  
  16.  
  17.